home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 04 - 1988 / 04.07 Jul 88 / Window Sample Stuff / FontMacros.Txt < prev    next >
Encoding:
Text File  |  1987-05-06  |  6.4 KB  |  371 lines  |  [TEXT/EDIT]
  1. ;---------------------------------- FontMacros ----------------------------------
  2.  
  3. ; Written by Ray.A.Cameron
  4.  
  5. ; -----  Control Manager Routines
  6.  
  7.     ; Procedure DrawControls (gp: GrafPort)
  8.     .Macro DrawControls
  9.     Move.l            %1,-(SP)
  10.     _DrawControls
  11.     .Endm
  12.     
  13.     ; Procedure HiliteControl (theControl: Control Handle; hiliteState: Integer)
  14.     .Macro HiliteControl
  15.     Move.l            %1,-(SP)
  16.     Move.w        %2,-(SP)
  17.     _HiliteControl
  18.     .Endm
  19.  
  20.     ; Procedure SetCtlValue (theControl: ControlHandle; theValue: Integer)
  21.     .Macro SetCtlValue
  22.     Move.l            %1,-(SP)
  23.     Move.w        %2,-(SP)
  24.     _SetCtlValue
  25.     .Endm
  26.     
  27. ; -----  Dialog Manager Routines
  28.  
  29.     ; Procedure CloseDialog (theDialog: DialogPtr)
  30.     .Macro CloseDialog
  31.     Move.l            %1,-(SP)
  32.     _CloseDialog
  33.     .Endm
  34.     
  35.     ; Procedure GetDItem (theDialog: DialogPtr; itemNo:Integer;
  36.     ;             Var type: Integer; Var item: Handle; Var box: Rect)
  37.     .Macro GetDItem
  38.     Move.l            %1,-(SP)
  39.     Move.w        %2,-(SP)
  40.     Pea            %3
  41.     Pea            %4
  42.     Pea            %5
  43.     _GetDItem
  44.     .Endm
  45.  
  46.     ; Procedure GetIText (item: Handle; Var text: Str255)
  47.     .Macro GetIText
  48.     Move.l            %1,-(SP)
  49.     Pea            %2
  50.     _GetIText
  51.     .Endm
  52.     
  53.     ; Procedure SetDItem (theDialog: DialogPtr; itemNo: Integer;
  54.     ;            type: Integer; item: Handle; box: Rect)
  55.     .Macro SetDItem
  56.     Move.l            %1,-(SP)
  57.     Move.w        %2,-(SP)
  58.     Move.w        %3,-(SP)
  59.     Pea            %4
  60.     Pea            %5
  61.     _SetDItem
  62.     .Endm
  63.     
  64. ; -----  Event Manager Routines
  65.  
  66.     ; Procedure GetMouse (Var mouseLoc: Point)
  67.     .Macro GetMouse
  68.     Pea            %1
  69.     _GetMouse
  70.     .Endm
  71.     
  72.     ; Function StillDown: Boolean
  73.     .Macro StillDown
  74.     Clr.w            -(SP)
  75.     _StillDown
  76.     .Endm
  77.  
  78. ; -----  List Manager Routines
  79.  
  80.     ; Procedure LActivate (act: Boolean; lHandle: ListHandle)
  81.     .Macro LMActivate
  82.     Move.b            %1,-(SP)
  83.     Move.l            %2,-(SP)
  84.     _LActivate
  85.     .Endm
  86.     
  87.     ; Procedure LAutoScroll (lHandle: ListHandle)
  88.     .Macro LMAutoScroll
  89.     Move.l            %1,-(SP)
  90.     _LAutoScroll
  91.     .Endm
  92.     
  93.     ; Procedure LDelRow (count, rowNum: Integer; lHandle: ListHandle)
  94.     .Macro LMDelRow
  95.     Move.w        %1,-(SP)
  96.     Move.w        %2,-(SP)
  97.     Move.l            %3,-(SP)
  98.     _LDelRow
  99.     .Endm
  100.  
  101.     ; Procedure LDispose (lHandle: ListHandle)
  102.     .Macro LMDispose
  103.     Move.l            %1,-(SP)
  104.     _LDispose
  105.     .Endm
  106.  
  107.     ; Procedure LDoDraw (drawIt: Boolean; lHandle: ListHandle)
  108.     .Macro LMDoDraw
  109.     Move.b            %1,-(SP)
  110.     Move.l            %2,-(SP)
  111.     _LDoDraw
  112.     .Endm
  113.     
  114.     ; Function LGetSelect (next: Boolean; Var theCell: Cell; 
  115.     ;            lHandle: ListHandle): Boolean
  116.     .Macro     LMGetSelect
  117.     Clr.w            -(SP)
  118.     Move.b            %1,-(SP)
  119.     Pea            %2
  120.     Move.l            %3,-(SP)
  121.     _LGetSelect
  122.     .Endm
  123.     
  124.     ; Procedure LSetSelect (setIt: Boolean; theCell: Cell; lHandle: ListHandle)
  125.     .Macro     LMSetSelect
  126.     Move.b            %1,-(SP)
  127.     Move.l            %2,-(SP)
  128.     Move.l            %3,-(SP)
  129.     _LSetSelect
  130.     .Endm
  131.     
  132.     ; Procedure LUpdate (theRgn: RgnHandle; lHandle: ListHandle)
  133.     .Macro LMUpdate
  134.     Move.l            %1,-(SP)
  135.     Move.l            %2,-(SP)
  136.     _LUpdate
  137.     .Endm
  138.  
  139. ; -----  Memory Manager Routines
  140.  
  141.     ; Procedure DisposePtr (p: Ptr)
  142.     ; On Entry        A0: p (pointer)
  143.     ; On Exit        A0: 0
  144.     ;                D0: result code (integer)
  145.     .Macro DisposePtr
  146.     Move.l            %1,A0
  147.     _DisposPtr
  148.     .Endm
  149.     
  150.     ; Procedure HLock (h: Handle)
  151.     ; On Entry        A0 - h (Handle)
  152.     ; On Exit        D0 - result code (integer)
  153.     .Macro HLock
  154.     Movea.l        %1,A0
  155.     _HLock
  156.     .Endm
  157.     
  158.     ; Procedure HUnLock (h: Handle);
  159.     ; On Entry        A0 - h (Handle)
  160.     ; On Exit        D0 - result code (integer)
  161.     .Macro HUnLock
  162.     Movea.l        %1,A0
  163.     _HUnLock
  164.     .Endm
  165.     
  166. ; -----  Quick Draw Routines
  167.  
  168.     ; Procedure DisposRgn (rgn: RgnHandle)
  169.     .Macro DisposeRgn
  170.     Move.l            %1,-(SP)
  171.     _DisposRgn
  172.     .Endm
  173.     
  174.     ; Procedure EraseRect (r: Rect)
  175.     .Macro EraseRect
  176.     Pea            %1
  177.     _EraseRect
  178.     .Endm
  179.     
  180.     ; Procedure FrameRect (r: Rect)
  181.     .Macro FrameRect
  182.     Pea            %1
  183.     _FrameRect
  184.     .Endm
  185.     
  186.     ; Procedure FrameRoundRect
  187.     .Macro FrameRoundRect
  188.     Pea            %1
  189.     Move.w        %2,-(SP)
  190.     Move.w        %3,-(SP)
  191.     _FrameRoundRect
  192.     .Endm
  193.     
  194.     ; Procedure GetFontInfo (Var info: FontInfo)
  195.     .Macro GetFontInfo
  196.     Pea            %1
  197.     _GetFontInfo
  198.     .Endm
  199.  
  200.     ; Procedure GetPenState (Var pnState: PenState)
  201.     .Macro GetPenState
  202.     Pea            %1
  203.     _GetPenState
  204.     .Endm
  205.     
  206.     ; Procedure GlobalToLocal (Var pt: Point);
  207.     .Macro GlobalToLocal
  208.     Pea            %1
  209.     _GlobalToLocal
  210.     .Endm
  211.  
  212.     ; Procedure InsetRect (Var r: Rect; dh,dv: Integer)
  213.     .Macro InsetRect
  214.     Pea            %1
  215.     Move.w        %2,-(SP)
  216.     Move.w        %3,-(SP)
  217.     _InsetRect
  218.     .Endm
  219.     
  220.     ; Function NewRgn: Rgn Handle
  221.     .Macro NewRgn
  222.     Clr.l            -(SP)
  223.     _NewRgn
  224.     .Endm
  225.     
  226.     ; Procedure PenMode (mode: Integer)
  227.     .Macro PenMode
  228.     Move.w        %1,-(SP)
  229.     _PenMode
  230.     .Endm
  231.     
  232.     ; Procedure PenSize (width, height: Integer)
  233.     .Macro PenSize
  234.     Move.w        %1,-(SP)
  235.     Move.w        %2,-(SP)
  236.     _PenSize
  237.     .Endm
  238.     
  239.     ; Function PtInRect (pt: Point; r: rect): Boolean
  240.     .Macro PtInRect
  241.     Clr.w            -(SP)
  242.     Move.l            %1,-(SP)
  243.     Pea            %2
  244.     _PtInRect
  245.     .Endm
  246.     
  247.     ; Function SectRect (srcRectA, srcRectB: Rect; Var dstRect: Rect): Boolean
  248.     .Macro SectRect
  249.     Clr.w            -(SP)
  250.     Pea            %1
  251.     Pea            %2
  252.     Pea            %3
  253.     _SectRect
  254.     .Endm
  255.     
  256.     ; Procedure SetClip (rgn: RgnHandle)
  257.     .Macro SetClip
  258.     Move.l            %1,-(SP)
  259.     _SetClip
  260.     .Endm
  261.     
  262.     ; Procedure SetPenState (pnState: PenState)
  263.     .Macro SetPenState
  264.     Pea            %1
  265.     _SetPenState
  266.     .Endm
  267.     
  268.     ; Procedure SetPort (gp: GrafPort)
  269.     .Macro SetPort
  270.     Move.l            %1,-(SP)
  271.     _SetPort
  272.     .Endm
  273.     
  274.     ; Procedure TextFace (face: stlye)
  275.     .Macro TextFace
  276.     Move.w        %1,-(SP)
  277.     _TextFace
  278.     .Endm
  279.     
  280.     ; Procedure TextFont (font: Integer)
  281.     .Macro TextFont
  282.     Move.w        %1,-(SP)
  283.     _TextFont
  284.     .Endm
  285.     
  286.     ; Procedure TextSize (size: Integer)
  287.     .Macro TextSize
  288.     Move.w        %1,-(SP)
  289.     _TextSize
  290.     .Endm
  291.     
  292. ; -----  Resource Manager Routines
  293.  
  294.     ; Function GetResource (theType: ResType; theID: Integer): Handle
  295.     .Macro GetResource
  296.     Clr.l            -(SP)
  297.     Move.l            #%1,-(SP)
  298.     Move.w        %2,-(SP)
  299.     _GetResource
  300.     .Endm
  301.  
  302. ; -----  Text Edit Routines
  303.  
  304.     ; Procedure TEActivate (hTE: TEHandle)
  305.     .Macro TEActivate
  306.     Move.l            %1,-(SP)
  307.     _TEActivate
  308.     .Endm
  309.     
  310.     ; Procedure TEDeactivate (hTE: TEHandle)
  311.     .Macro TEDeactivate
  312.     Move.l            %1,-(SP)
  313.     _TEDeactivate
  314.     .Endm
  315.  
  316.     ; Procedure TEDispose (hTE: TEHandle)
  317.     .Macro TEDispose
  318.     Move.l            %1,-(SP)
  319.     _TEDispose
  320.     .Endm
  321.     
  322.     ; Procedure TEUpdate (rUpdate: Rect; hTE: TEHandle)
  323.     .Macro TEUpdate
  324.     Pea            %1
  325.     Move.l            %2,-(SP)
  326.     _TEUpdate
  327.     .Endm
  328.     
  329.     ; Procedure TextBox (text: Ptr; length: LongInt; box :Rect;
  330.     ;            just: Integer)
  331.     .Macro TextBox
  332.     Move.l            %1,-(SP)    
  333.     Move.l            %2,-(SP)    
  334.     Pea            %3
  335.     Move.w        %4,-(SP)
  336.     _TextBox
  337.     .Endm
  338.  
  339. ; -----  Window Manager Routines
  340.  
  341.     ; Procedure BeginUpdate (gp: GrafPort)
  342.     .Macro BeginUpdate
  343.     Move.l            %1,-(SP)
  344.     _BeginUpdate
  345.     .Endm
  346.     
  347.     ; Procedure EndUpdate (WindowPtr: WindowPtr)
  348.     .Macro EndUpdate
  349.     Move.l            %1,-(SP)
  350.     _EndUpdate
  351.     .Endm
  352.     
  353.     ; Procedure HideWindow (theWindow: WindowPtr)
  354.     .Macro HideWindow
  355.     Move.l            %1,-(SP)
  356.     _HideWindow
  357.     .Endm
  358.     
  359.     ; Procedure ShowWindow (theWindow: WindowPtr)
  360.     .Macro ShowWindow
  361.     Move.l            %1,-(SP)
  362.     _ShowWindow
  363.     .Endm
  364.     
  365. ; -----  Miscellaneous Routines
  366.  
  367.     .Macro DeRefHndle
  368.     Movea.l        %1,%2
  369.     Movea.l        (%2),%2
  370.     .Endm
  371.